﻿Public Class Form1
    Private m_obj As ObjUtils = New ObjUtils

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the '_DongNhan_netDataSet.tbl_test' table. You can move, or remove it, as needed.
        Me.Tbl_testTableAdapter.Fill(Me._DongNhan_netDataSet.tbl_test)
        m_obj.addObject(New ObjUtils(Me.Tbl_testUltraGrid, ObjUtils._None))
        m_obj.setGiaoDien()
    End Sub

    Private Sub UltraButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UltraButton1.Click
        Me.Validate()
        Me.Tbl_testBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me._DongNhan_netDataSet)
    End Sub

    Private Sub UltraButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UltraButton2.Click
        Me.Close()
    End Sub

    Private Sub UltraDropDownButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UltraDropDownButton1.Click

    End Sub


    Private Sub UltraTextEditor1_EditorSpinButtonClick(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinEditors.SpinButtonClickEventArgs) Handles UltraTextEditor1.EditorSpinButtonClick
        MessageBox.Show("keke")
    End Sub

    Private Sub UltraTextEditor1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UltraTextEditor1.ValueChanged

    End Sub

    Private Sub Tbl_testUltraGrid_ClickCell(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.ClickCellEventArgs) Handles Tbl_testUltraGrid.ClickCell
        'If Me.Tbl_testUltraGrid.ActiveRow.Cells("ma").IsActiveCell Then
        '    Me.Tbl_testUltraGrid.ActiveRow.Cells("ma").
        'End If
    End Sub

    Private Sub Tbl_testUltraGrid_ClickCellButton(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.CellEventArgs) Handles Tbl_testUltraGrid.ClickCellButton

    End Sub

    Private Sub Tbl_testUltraGrid_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Tbl_testUltraGrid.KeyDown
        M_Ultragrid.getGridKeyDown(e, Me.Tbl_testUltraGrid)
    End Sub

    Private Sub Tbl_testUltraGrid_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tbl_testUltraGrid.KeyPress
        M_Ultragrid.setGridKeypress(sender, e, Me.Tbl_testUltraGrid)
    End Sub

    Private Sub UltraGrid1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles UltraGrid1.KeyDown
        M_Ultragrid.getGridKeyDown(e, Me.UltraGrid1)
    End Sub

    Private Sub UltraGrid1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles UltraGrid1.KeyPress
        M_Ultragrid.setGridKeypress(sender, e, Me.UltraGrid1)
    End Sub

    Private Sub UltraGrid1_InitializeLayout(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinGrid.InitializeLayoutEventArgs) Handles UltraGrid1.InitializeLayout

    End Sub
End Class
